home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / WINPROGS / GC101B.ZIP / BILLING.SCR < prev    next >
Text File  |  1993-07-30  |  2KB  |  61 lines
  1. ;
  2. ;***********************************************************************
  3. ;       WinCIS .94
  4. ;       Copyright(C) 1992
  5. ;       Larry Lee (76670,1471)
  6. ;       16038 Augusta Drive
  7. ;       Chino Hills, Ca 91709
  8. ;***********************************************************************
  9.  
  10. ; GO FULL SCREEN
  11. WINDOWSTATE MAXIMIZE
  12.  
  13. WAIT !
  14. SEND SET BRIEF YES^M
  15. WAIT !
  16. SEND SET PAGED NO^M
  17. WAIT !
  18. SEND SET BLANK YES^M
  19. WAIT !
  20. SEND GO BILLING^M
  21. WAIT !
  22. SEND 2^M
  23. WAIT !
  24.  
  25. ; Erase Exitsing File if Any
  26. KILLFILE &MESSAGEPATH\BILLINFO.TXT
  27.  
  28. ; ^M^J is the same as a CRLF
  29. ; Add a Title 
  30. PUTFILE &MESSAGEPATH\BILLING.TXT ^M^J
  31. PUTFILE &MESSAGEPATH\BILLING.TXT *****************************************^M^J
  32. PUTFILE &MESSAGEPATH\BILLING.TXT * B I L L I N G   I N F O R M A T I O N *^M^J
  33. PUTFILE &MESSAGEPATH\BILLING.TXT *****************************************^M^J
  34. PUTFILE &MESSAGEPATH\BILLING.TXT * Date:    &Date^M^J 
  35. PUTFILE &MESSAGEPATH\BILLING.TXT * Time:    &Time^M^J 
  36. PUTFILE &MESSAGEPATH\BILLING.TXT * Name:    &UserName^M^J 
  37. PUTFILE &MESSAGEPATH\BILLING.TXT * Account: &UserId^M^J 
  38. PUTFILE &MESSAGEPATH\BILLING.TXT *****************************************^M^J
  39. PUTFILE &MESSAGEPATH\BILLING.TXT ^M^J
  40.  
  41. ; Capture MTD-Totals
  42. CAPTURE &MESSAGEPATH\BILLING.TXT APPEND
  43. SEND 2^M
  44. WAIT !
  45. CAPTURE OFF
  46. ; Backup to Prior Menu
  47. SEND ^M
  48. WAIT !
  49. ; Capture Current Detail
  50. CAPTURE &MESSAGEPATH\BILLING.TXT APPEND
  51. SEND 4^M
  52. WAIT !
  53. CAPTURE OFF
  54.  
  55. ; Optionally we could Display The Text 
  56. ; Using NotePad as the script is running
  57. ; SHELL NOTEPAD.EXE 1 &MESSAGEPATH\BILLING.TXT
  58.  
  59. ; Logoff CIS and Exit the Terminal Window
  60. LOGOFF
  61.